home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 85 / CD-ROM 85 / CD-ROM 85.iso / med2000 / eventos / faseslua / FASESLUA.JS next >
Encoding:
Text File  |  2001-09-10  |  732 b   |  20 lines
  1. <!-- Begin
  2.  
  3. var height=1;
  4. var size = 50;
  5. var i;
  6. var currentDate  = new Date();
  7. var x = currentDate;
  8. currentDate.setTime(currentDate.getTime() + (currentDate.getTimezoneOffset()*60000));
  9. var blueMoonDate = new Date(96, 1, 3, 16, 15, 0);
  10. var lunarPeriod  = 29*(24*3600*1000) + 12*(3600*1000) + 44.05*(60*1000);
  11. var moonPhaseTime = (currentDate.getTime() - blueMoonDate.getTime()) % lunarPeriod;
  12. var percentRaw = (moonPhaseTime / lunarPeriod);
  13. var percent    = Math.round(100*percentRaw) / 100;
  14. var lua = Math.floor(28*percent)+1;
  15.  
  16. document.write ("<a href='/MED2000/pedia98a/matf0mr9.htm'><img src='/med2000/eventos/faseslua/lua" + lua + ".gif' align='absmiddle' border='0' alt='Fases da Lua'></a>");
  17.  
  18. //  End -->
  19.  
  20.